home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MISSION.DSK / MISSION IMPOSSIBLE START.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  78 lines
  1. 1  HIMEM:  -29184:D$ =  CHR$(4): PRINT 
  2. 2  PRINT  CHR$(4)"BLOADM3": HGR 
  3. 5  HOME : GOTO 90
  4. 7  PRINT  CHR$(4)"SAVE LETTER": STOP 
  5. 10  GOTO 25
  6. 15  VTAB 24: HTAB 30: PRINT "HIT RETURN";: GET A$
  7. 16  RETURN 
  8. 25  VTAB 1: PRINT : PRINT D$"BLOADLET" + STR$(P)
  9. 28  GOSUB 15
  10. 29  HOME : VTAB 21
  11. 30  POKE  -29184,0: POKE  -29183,112
  12. 40  CALL  -29136
  13. 50  RETURN 
  14. 90  PRINT D$"BLOADLET0": GOSUB 30
  15. 95  HOME : VTAB 21
  16. 100  PRINT "HI THERE, THIS IS AN OPEN LETTER TO"
  17. 110  PRINT "TO ALL SOFTWARE USERS. IF YOU WISH TO"
  18. 120  PRINT "SKIP IT JUST HIT Z ELSE ";
  19. 130 P = 1: GOSUB 10
  20. 140  IF A$ = "Z"  THEN 671
  21. 150  PRINT "I'M SCOTT ADAMS PRESIDENT OF AI"
  22. 160  PRINT "(ADVENTURE INTERNATIONAL) AND AUTHOR OF"
  23. 170  PRINT "THE ADVENTURE SERIES.";
  24. 180 P = 2: GOSUB 10
  25. 190  PRINT "I WANT TO CHAT ABOUT SOFTWARE PIRACY
  26. 200  PRINT "FOR A MOMENT, AND THEN WE'LL GET ON WITH";
  27. 210  PRINT "THE MAIN EVENT. ";
  28. 220 P = 3: GOSUB 10
  29. 230  PRINT "THE SOFTWARE YOU'RE ABOUT TO ENJOY TOOK"
  30. 240  PRINT "CONSIDERABLE TIME, EFFORT & MONEY TO"
  31. 250  PRINT "DEVISE. WE'VE A LARGE STAFF HERE AT AI"
  32. 260  PRINT "AND MANY AUTHORS WORLDWIDE. ";
  33. 270  GOSUB 15: HOME : VTAB 21
  34. 280  PRINT "ALL THESE PEOPLE & MYSELF HAVE ONE MAJOR";
  35. 290  PRINT "THING IN COMMON; WE ALL DEPEND ON AI"
  36. 300  PRINT "SALES FOR OUR LIVELIHOOD. ";
  37. 310 P = 5: GOSUB 10
  38. 320  PRINT "IF YOU WERE TO GIVE OR ACCEPT A PIRATED"
  39. 330  PRINT "COPY OF THIS PROGRAM, PLEASE TAKE A"
  40. 340  PRINT "MINUTE TO THINK OF THE CONSEQUENCES."
  41. 345 P = 6: GOSUB 10
  42. 350  PRINT "WE SET THE PRICE WITH THOUGHT OF MANY"
  43. 360  PRINT "COPIES SELLING, IF ONLY FEW SOLD THE"
  44. 370  PRINT "PRICE WOULD BE ASTRONOMICAL! ";
  45. 380 P = 7: GOSUB 10
  46. 390  PRINT "IF YOU GIVE A FRIEND A COPY, AND HE THEN";
  47. 400  PRINT "GIVES A FRIEND A COPY ETC. A SALE OF A"
  48. 410  PRINT "SINGLE DISK MAY TURN INTO HUNDREDS OF"
  49. 420  PRINT "BOOTLEG COPIES! ";
  50. 430 P = 2: GOSUB 10
  51. 440  PRINT "PIRATING COPIES OF SOFTWARE IS IN THE"
  52. 450  PRINT "END STEALING FROM US HERE AT AI. MOST"
  53. 460  PRINT "PEOPLE WOULDN'T STEAL FROM A STORE, SO"
  54. 470  PRINT "WHY STEAL FROM US? ";
  55. 480 P = 6: GOSUB 10
  56. 490  PRINT "TRADING BOOTLEG COPIES DOESN'T STIMULATE";
  57. 500  PRINT "THE SOFTWARE INDUSTRY, IT CAN ONLY HURT"
  58. 510  PRINT "EVERYONE IN THE LONG RUN AS LESS"
  59. 520  PRINT "SOFTWARE BECOMES AVAILABLE! ";
  60. 530 P = 10: GOSUB 10
  61. 540  PRINT "SO PLEASE, NEXT TIME YOU'RE ASKED FOR"
  62. 550  PRINT "A COPY OF COPYRIGHTED PROGRAM, PLEASE"
  63. 560  PRINT "SAY -  POS AT  INT RUN  COLOR=  INT USR SGN AT ! ";
  64. 570 P = 11: GOSUB 10
  65. 580  PRINT "TELL THEM YOU RESPECT THE EFFORTS OF"
  66. 590  PRINT "FREE INDIVIDUALS IN A FREE SOCIETY TO"
  67. 600  PRINT "TO MAKE AN HONEST LIVING. TELL 'EM WHERE";
  68. 610  PRINT "TO BUY THEIR OWN COPY! ";
  69. 620 P = 1: GOSUB 10
  70. 630  PRINT "SORRY TO RUN ON SO MUCH, BUT I REALLY"
  71. 640  PRINT "WANTED TO LET YOU KNOW MY VIEWS ON WHAT"
  72. 650  PRINT "I CONSIDER A SERIOUS PROBLEM FACING OUR"
  73. 660  PRINT "NEW FLEDGLING INDUSTRY.";
  74. 670  HTAB 30: INPUT "HIT RETURN";A$
  75. 671  HOME : VTAB 21: PRINT "THANX, NOW ON WITH THE SHOW..."
  76. 676  PRINT 
  77. 677  POKE  -16302,0
  78. 680  PRINT D$"EXEC AEXEC"